home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / util / misc / launchpal.lha / launchpal / launchpal.e next >
Encoding:
Text File  |  1997-11-12  |  940 b   |  43 lines
  1. -> launchpal.e
  2. -> 'get rid of mscreen!'
  3. -> r@((e 10-11-97
  4.  
  5. OPT OSVERSION=37
  6.  
  7. MODULE 'intuition/intuition','intuition/screens','graphics/modeid'
  8.  
  9. PROC main()
  10.     DEF screen=NIL:PTR TO screen,win=NIL:PTR TO window,pubname
  11.  
  12.     pubname:='launchpal'
  13.  
  14.     IF screen:=OpenScreenTagList(NIL,
  15.         [SA_DEPTH,2,
  16.         SA_TITLE,'   launchpal',
  17.         SA_PUBNAME,pubname,
  18.         SA_DISPLAYID,PAL_MONITOR_ID OR HIRES_KEY, -> let it be a PAL:HighRes screen
  19.         SA_WIDTH,640,SA_HEIGHT,256,
  20.         SA_LIKEWORKBENCH,TRUE,
  21.         SA_INTERLEAVED,FALSE,
  22.         NIL])
  23.         IF win:=OpenWindowTagList(NIL,
  24.             [WA_LEFT,0,
  25.             WA_TOP,0,
  26.             WA_WIDTH,20,
  27.             WA_HEIGHT,20,
  28.             WA_IDCMP,IDCMP_CLOSEWINDOW,
  29.             WA_PUBSCREEN,screen,
  30.             WA_SMARTREFRESH,TRUE,
  31.             WA_FLAGS,WFLG_CLOSEGADGET,
  32.             WA_BORDERLESS,TRUE,
  33.             NIL])
  34.             PubScreenStatus(screen,0) -> make screen public
  35.             SetDefaultPubScreen(pubname)
  36.             SetPubScreenModes(SHANGHAI)
  37.             WaitIMessage(win)
  38.             CloseWindow(win)
  39.         ENDIF
  40.     CloseScreen(screen)
  41.     ENDIF
  42. ENDPROC
  43.